home *** CD-ROM | disk | FTP | other *** search
/ Sex Clubs of Paris / Sex Clubs of Paris.iso / pc / sex.dir / 00064_Script_64 < prev    next >
Text File  |  1994-12-05  |  4KB  |  122 lines
  1. ON pupbuts
  2.   repeat with i=5 to 15
  3.     puppetsprite i,TRUE
  4.   end repeat
  5. End pupbuts
  6.  
  7. ON unpupbuts
  8.   repeat with i=5 to 15
  9.     puppetsprite i,FALSE
  10.   end repeat
  11. End unpupbuts
  12.  
  13. On Roll1
  14.   if rollover (17) then
  15.     set the castnum of sprite 17 to the number of cast "3D BALL2"
  16.     updatestage
  17.   else set the castnum of sprite 17 to the number of cast "3D BALL"
  18.   updatestage
  19.   if rollover (18) then
  20.     set the castnum of sprite 18 to the number of cast "3D BALL2"
  21.     updatestage
  22.   else set the castnum of sprite 18 to the number of cast "3D BALL"
  23.   updatestage
  24.   if rollover (19) then
  25.     set the castnum of sprite 19 to the number of cast "3D BALL2"
  26.     updatestage
  27.   else set the castnum of sprite 19 to the number of cast "3D BALL"
  28.   updatestage
  29.   if rollover (20) then
  30.     set the castnum of sprite 20 to the number of cast "3D BALL2"
  31.     updatestage
  32.   else set the castnum of sprite 20 to the number of cast "3D BALL"
  33.   updatestage
  34.   if rollover (21) then
  35.     set the castnum of sprite 21 to the number of cast "3D BALL2"
  36.     updatestage
  37.   else set the castnum of sprite 21 to the number of cast "3D BALL"
  38.   updatestage
  39.   if rollover (22) then
  40.     set the castnum of sprite 22 to the number of cast "3D BALL2"
  41.     updatestage
  42.   else set the castnum of sprite 22 to the number of cast "3D BALL"
  43.   updatestage
  44. End roll1
  45.  
  46. On Roll2
  47.   if rollover (5) then
  48.     set the castnum of sprite 5 to the number of cast "BKWD2"
  49.     updatestage
  50.   else set the castnum of sprite 5 to the number of cast "BKWD"
  51.   if rollover (6) then
  52.     set the castnum of sprite 6 to the number of cast "FWD2"
  53.     updatestage
  54.   else set the castnum of sprite 6 to the number of cast "FWD"
  55.   if rollover (7) then
  56.     set the castnum of sprite 7 to the number of cast "PLAY2"
  57.     updatestage
  58.   else set the castnum of sprite 7 to the number of cast "PLAY"
  59.   if rollover (8) then
  60.     set the castnum of sprite 8 to the number of cast "PAUSE2"
  61.     updatestage
  62.   else set the castnum of sprite 8 to the number of cast "PAUSE"
  63.   if rollover (9) then
  64.     set the castnum of sprite 9 to the number of cast "RRWD2"
  65.     updatestage
  66.   else set the castnum of sprite 9 to the number of cast "RRWD"
  67.   if rollover (10) then
  68.     set the castnum of sprite 10 to the number of cast "FFWD2"
  69.     updatestage
  70.   else set the castnum of sprite 10 to the number of cast "FFWD"
  71.   if rollover (11) then
  72.     set the castnum of sprite 11 to the number of cast "VOL.DN2"
  73.     updatestage
  74.   else set the castnum of sprite 11 to the number of cast "VOL.DN"
  75.   if rollover (12) then
  76.     set the castnum of sprite 12 to the number of cast "VOL.UP2"
  77.     updatestage
  78.   else set the castnum of sprite 12 to the number of cast "VOL.UP"
  79.   if rollover (13) then
  80.     set the castnum of sprite 13 to the number of cast "HIDE2"
  81.     updatestage
  82.   else set the castnum of sprite 13 to the number of cast "HIDE"
  83.   if rollover (14) then
  84.     set the castnum of sprite 14 to the number of cast "MENU2"
  85.     updatestage
  86.   else set the castnum of sprite 14 to the number of cast "MENU"
  87.   if rollover (15) then
  88.     set the castnum of sprite 15 to the number of cast "QUIT2"
  89.     updatestage
  90.   else set the castnum of sprite 15 to the number of cast "QUIT"
  91.   updatestage
  92. End roll2
  93.  
  94. On Hide
  95.   play "HIDE"
  96. end hide
  97.  
  98. on volUp
  99.   if the SoundLevel = 7 then exit
  100.   set the SoundLevel to the SoundLevel + 1 
  101. end volUp
  102.  
  103. on volDn
  104.   if the SoundLevel = 0 then exit
  105.   set the SoundLevel to the SoundLevel - 1 
  106. end volDn
  107.  
  108. on butns 
  109.   global action,PauseState,auto
  110.   set chan=the clickon
  111.   set button=the name of cast(the castnum of sprite the clickon)
  112.   set upbut=button
  113.   set len=(the number of chars in button)     
  114.   put "C" into char len of button    
  115.   set the castnum of sprite chan to the number of cast button 
  116.   updatestage
  117.   repeat while the stillDown
  118.     if rollover (chan) = false then exit 
  119.   end repeat
  120.   do action
  121. end butns
  122.